library(sf)

## Linking to GEOS 3.9.1, GDAL 3.4.0, PROJ 8.1.1; sf_use_s2() is TRUE

probables=read_sf("MostLikelyZG.gpkg")
grises=read_sf("selecDisMap.gpkg")
grises=grises[grises$Zona=='ZG' & grises$SpotsNBI=='3 coldSpot',]

library(leaflet)

CENTER_of_MAP="function(btn, map){map.setView([-10, -75], 6)}" #ltln



demoPlot=leaflet()%>%
          addProviderTiles("CartoDB.Positron")%>%
  
          addPolygons(data=probables,
                      label = ~provDist,
                      weight = 0.5, #borde
                      color = "red",#color
                      group = "probables",
                      fillOpacity = 0.4) %>%
            addPolygons(data= grises,
                        label = ~provDist,
                        weight = 0.5, 
                        color = "green",
                        group = "grises",
                        fillOpacity = 0.4) %>% 
  # capas
  addLayersControl(
    overlayGroups = c("probables", "grises"),
    options = layersControlOptions(collapsed = FALSE)
  )%>% hideGroup("probables")%>% 

    # zoom
    addEasyButton(
        easyButton(icon="fa-home", # a symbol
                   title="Zoom to Level 1",
                   onClick=JS(CENTER_of_MAP)))
demoPlot